<!--#include file="Config.asp"-->
<!--#include file="emp_is.asp"-->
<%
AddNum=int(request("AddNum"))
SKUID=int(request("SKUID"))



'保存明细数据到数据库
'获取传递过来的信息参数
'if request("act")="add" and AddNum>0 then
if AddNum>0 then
Set rs=Server.CreateObject("ADODB.Recordset")
for a=1 to AddNum
sql="select * from CMDB_List where Skuid is null"
rs.open sql,conn,1,3
rs.addnew
rs("Emp_ID")=session("Emp_ID") '责任人
rs("BrandID")=Int(request("BrandID")) '品牌
rs("CRM_ID")=Int(request("CRM_ID")) '供应商
rs("stocktype")=Int(request("stocktype"))  '分类
rs("AssetFrom")=Int(request("AssetFrom")) '来源
rs("AssetState")=Int(request("AssetState")) '状态
rs("sku_price")=Trim(request("sku_price"))  '采购价格
rs("UseFor")=Trim(request("UseFor"))  '资产用途
if Trim(request("PayID"))<>"" then
rs("PayID")=trim(request("PayID"))  '付款单号码
end if
if Trim(request("InvoiceID"))<>"" then
rs("InvoiceID")=Trim(request("InvoiceID"))  '发票编号
end if
if Trim(request("ContractID"))<>"" then
rs("ContractID")=Trim(request("ContractID"))  '合同流水编号
end if
rs("intime")=Now()  '时间
rs("asset_no")=Trim(request("asset_no"))  '资产软件编码
rs("name")=Trim(request("name"))  '名称
rs("info")=Trim(request("info")) ' 说明
rs("Dep_ID")=Trim(request("Dep_ID")) ' 部门
rs.Update
rs.close
next
'response.redirect Request.ServerVariables("Http_referer")
response.redirect "cmdb_Add.asp"
'执行数据写入到表结束
end If

'//LogAdd SKUID 日志数据增加操作  保存明细数据到数据库
''//获取传递过来的信息参数
if request("act")="LogAdd" then
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from CMDB_logMain where id is null"
rs.open sql,conn,1,3
rs.addnew
rs("emp_ID")=session("Emp_id") '责任人
rs("SKU_ID")=SKUID
rs("LogState")=Int(request("AssetState")) '状态
rs("LogType")=Int(request("AssetConfigType")) 'LogType
rs("Dep_ID")=Trim(request("Department")) '部门ID，字符，非整数类型
rs("cost")=Trim(request("cost"))  '发生成本
rs("begintime")=Trim(request("begintime"))  '时间
rs("endtime")=Trim(request("endtime"))  '时间
rs("topic")=Trim(request("topic"))  '名称
rs("info")=Trim(request("info")) ' 说明
rs.Update
'//更新AssetStockDetail的SKU状态字段StateType
conn.execute "update cmdb_List set AssetState="&int(request("AssetState"))&" where SKUID="&SKUID
If Int(request("AssetConfigType"))=48 Then '如果更新领用人，则更新SKUID所在部门
conn.execute "update cmdb_List set Dep_ID='"&Trim(request("Department"))&"' where SKUID="&SKUID
End if
rs.close
'response.redirect Request.ServerVariables("Http_referer")
response.redirect "cmdb_view.asp?SKUID="&SKUID

end If
'执行数据写入到表结束

'//AccessriesAdd SKUID PC主机 配件数据增加操作保存明细数据到数据库
''//获取传递过来的信息参数
if request("act")="AccessriesAdd" then
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from CMDB_Accessries where id is null"
rs.open sql,conn,1,3
rs.addnew
rs("emp_ID")=session("Emp_id") '责任人
rs("SKUID")=SKUID
rs("intime")=Now()  '时间
rs("topic")=Trim(request("topic"))  '名称
rs("a_type")=Trim(request("a_type")) ' 类型
rs.Update
rs.close
response.redirect "cmdb_view.asp?SKUID="&SKUID
end If
'执行数据写入到表结束

%>